home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dbapg.arc / DOS-STAT.PRG < prev    next >
Encoding:
Text File  |  1984-08-12  |  1.8 KB  |  47 lines
  1. * Program.: DOS-STAT.PRG
  2. * Author..: Kelly Mc Tiernan
  3. * Date....: 12/12/83
  4. * Notice..: Copyright 1983, Kelly Mc Tiernan, All Rights Reserved.
  5. * Version.: dBASE II, version 2.4
  6. * Notes...: Disk drive status routine.
  7. *
  8. *    IN: drive-C-1       Disk drive letter
  9. *   OUT: storage-N-10    Number of bytes remaining on disk
  10. *        is:error-L-1    Validation flag
  11. *
  12. STORE T TO is:error 
  13. * ---Parameter checking.
  14. STORE !(drive) TO drive
  15. IF LEN(drive) > 1 .OR. drive < "A" .OR. drive > "P"
  16.    RETURN
  17. ENDIF
  18. * -----------0---1---2---3---4---5---6---7---8---9
  19. POKE 56832,          6, 83,138, 87,  1,128,234, 64,;
  20.            128,250, 17,118,  2,178,  0,180, 54,205
  21. POKE 56850, 33, 61,255,255,116, 77,190,  0,  0,247,;
  22.            225,185,  0,  0,135,214,247,227,135,209
  23. POKE 56870,150,247,227,  3,200,135,209,150, 11,201,;
  24.            117, 51,190,108,222, 30,  7, 95, 87, 71
  25. * -----------0---1---2---3---4---5---6---7---8---9
  26. POKE 56890,139,216,185,  9,  0,176, 48, 43, 28, 70,;
  27.             70, 27, 20,114,  7,254,192, 78, 78,233
  28. POKE 56910,241,255, 78, 78,  3, 28, 70, 70, 19, 20,;
  29.            170, 70, 70,226,226,138,195,  4, 48,170
  30. POKE 56930, 91,  7,195, 91,198, 71,  1, 69,  7,195,;
  31.              0,202,154, 54,  0,225,245,  5,128,150
  32. * -----------0---1---2---3---4---5---6---7---8---9
  33. POKE 56950,152,  0, 64, 66, 15,  0,160,134,  1,  0,;
  34.             16, 39,  0,  0,232,  3,  0,  0,100,  0
  35. POKE 56970,  0,  0, 10,  0,  0,  0
  36. * -----------0---1---2---3---4---5---6---7---8---9
  37. STORE !(drive)+"000000000" TO t:storage
  38. SET CALL TO  56832
  39. CALL t:storage
  40. STORE ( t:storage = "E" ) TO is:error
  41. IF .NOT. is:error
  42.    STORE VAL(t:storage) TO storage
  43. ENDIF
  44. RELEASE t:storage
  45. RETURN
  46. * EOF: DOS-STAT.PRG
  47.